(set-locale-environment): Pass `frame' to getenv for LC_MESSAGES.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b579d17c124b3a7ed9bd334e8357159e156ecc06..7a236b3f6201632051080eab48b3c9c17481e0c1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-17  Glenn Morris  <rgm@gnu.org>
+
+       * international/mule-cmds.el (set-locale-environment): Pass
+       `frame' to getenv for LC_MESSAGES.
+
 2008-02-17  Juri Linkov  <juri@jurta.org>
 
        * time.el (emacs-init-time): Use format instead of format-seconds.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 9ff771d7137e1e93cc3fcd4f75a5c931f3d3f490..45b3543b0ee2c775f760719b50ec767e54994669 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2516,7 +2516,7 @@ See also `locale-charset-language-names', `locale-language-names',
 
     (setq woman-locale
           (or system-messages-locale
-              (let ((msglocale (getenv "LC_MESSAGES")))
+              (let ((msglocale (getenv "LC_MESSAGES" frame)))
                 (if (zerop (length msglocale))
                     locale
                   (locale-translate msglocale)))))